10 CLS : PRINT TAB<10> "<« A RATIONAL TIC-TAC-TOE GAME >»" 

29 ' 

20 ' <C> BV D. D. HINRICHS 1979 

40 ' FOR THE TRS-80 WITH LEVEL II BASIC 

50 ' 

60 PRINT : DEFINT B-2 

70 A*="" : PRINT "00 VOU WANT INSTRUCTIONS <V OR N) ?" 

80 A*=INKEY$ : IF A*-"" GOTO 80 

90 IF A*="Y" GOTO 100 ELSE 310 

100 CLS 

110 PRINT "THIS PROGRAM PLAYS A VERV AGGRESSIVE GAME OF " ; 

120 PRINT "TIC-TAC-TOE. " 

130 PRINT "IF VOU MAKE ANY MISTAKE AT ALL, THE COMPUTER WILL "; 

140 PRINT "WIN THE GAME. " 

150 PRINT "ONLY IF YOU PLAV A PERFECT GAME WILL YOU BE ABLE " ; 

160 PRINT "TO GET A DRAW. " 

170 PRINT "TO MAKE YOUR MOVE, PRESS THE DIGIT <1 THROUGH 9> M ; 

180 PRINT "THAT" 

190 PR I NT "REPRESENTS THE BOARD CELL TO WHICH YOU WISH TO MOVE. " 

200 PRINT "VOUR ENTRY WILL BE ADDED TO THE BOARD, AND THE " ; 

210 PRINT "COMPUTER" 

220 PRINT "WILL CALCULATE ITS RESPONSE. AT THE START, THE " ; 

230 PRINT "COMPUTER" 

240 PRINT "WILL RANDOMLY CHOOSE A CENTER, CORNER, OR SIDE " ; 

250 PRINT "OPENING MOVE. " 

260 PRINT 

270 PRINT TAB<10) "COMPUTER MOVES ARE: X" 

280 PRINT TAB<10> "VOUR MOVES ARE: 0" 

290 PRINT 

300 INPUT "PRESS 'ENTER' TO START THE GAME" ; ft* : CLS 

310 RANDOM ' RANDOMIZE RND SEED 

328 DATA 2,8,6,4,7,3,0,9,0,0, 3,7,6,9,4,7,3,1,4,9 

330 DATA 6,4,8,2,1,9,8,7,0,0, 7,3,8,9,2,1,9,3,7,2 

340 DATA 3,7,1,2,9,9,1,8,2,7, 1,9,8,2,4,6,0,3,0,0 

358 DATA 1,9,7,4,3,9,1,6,3,4, 7,3,6,4,2,8,0,1,0,0 

360 DATA 5,8,4,6,7,3,0,9,0,0, 5,8,9,1,4,6,0,7,0,0 

378 DATA 5, 8, 3, 1, 7, 1, 3, 5, 9, 8, 3, 1, 9, 6, 4, 0, 7, 0, 8, 

380 DATA 5, 8, 3, 1, 7, 3, 1, 5, 7, 8, 1, 3, 5, 8, 9, 0, 0, 0, 0, 

390 DATA 1,5,7,4,6,3,6,5,7,4, 3,1,5,8,7,8,0,0,0,0 

40O DATA 5,9,7,4,3,4,7,5,6,9, 7,4,9,5,8,9,5,7,8,4 

418 DATA 3, 2, 9, 5, 6, 5, 9, 2, 8, 3, 3, 2, 5, 7, 9, 5, 9, 3, 2, 7 

428 DATA 9,5,3,2,6,2,3,5,8,9, 7,4,5,3,9,3,2,5,9,7 

438 DATA 3,2,7,4,5,7,4,3,5,2 

440 ' ENTRY POINT TO INITIALIZE FOR A NEW GAME 

450 RESTORE ' RESET DATA POINTER TO START OF DATA 

460 F»INT<RND<0)*2) ' SET FLAG TO OR 1 

470 E-0 : G«l : H«0 : Cl-10 : C2-10 : N-8 

480 GOSUB 1540 ' DRAW BOARD 

490 FOR 1-1 TO 9 : B<I>«0 : NEXT I ' CLEAR TEST BOARD 

500 C-INT<RND<0>*3> ' SELECT INITIAL COMPUTER MOVE <0, 1, 2> 

510 IF C-0 THEN C=5 ' CENTER OPENING GAME 

520 U-10-C 

530 GOSUB 1490 ' DISPLAY COMPUTER MOVE, GET 1ST USER MOVE 

540 IF C=5 GOTO 1330 ' CENTER OPENING GAME 

550 IF C=2 GOTO 1070 ' SIDE OPENING GAME 

560 IF U=5 GOTO 790 ' CORNER GAME, 1ST USER MOVE = 5 

570 R=10*U+140 ' CORNER GAME, 1ST USER MOVE NOT 5 

586 IF U>5 THEN R=R-10 

590 E=l ' REENTRY POINT FOR 5-UNIT RESPONSES 
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686 IF F=l THEN R-R+5 

610 F-i 

620 IF R=9 GOTO 66Q 

630 FOR 1-1 TO R 

640 

650 

660 

670 F-<F-l>*<F-i> 

680 READ C 

690 C2-C1 : Ci-C 

700 IF C-0 OR C-U GOTO 660 

710 B<C>-1 : P-C 

720 IF C2-0 OR C-H GOTO 940 

730 IF F-l GOTO 1460 

740 IF E-O GOTO 760 

750 IF N-5 GOTO 1460 

760 GOSUB 1750 : GOSUB 1700 

772 GOSUB 1370 

780 GOTO 660 

790 ' CORNER OPENING GAME, 

8O0 U-l : GOSUB 1490 

810 IF U-3 OR U-7 GOTO 1030 

820 IF U-4 OR U-8 THEN G-0 

830 GOSUB 1490 

840 IF G«0 THEN C-3 ELSE C-7 

850 IF C<XI GOTO 1460 

860 GOSUB 1490 

870 IF G«0 GOTO 910 

IF B<2>«0 THEN C«2 ELSE C-6 

IF B<C)=0 GOTO 1460 



REENTRV POINT FOR 7-UNIT RESPONSES 



RERD C ' INCREMENT DATA POINTER TO 1ST RESPONSE 

NEXT I 

REENTRV POINT FOR LOOP TO SELECT COMPUTER RESPONSES 
' FLIP FLOG 

' SELECT COMPUTER RESPONSE FROM LIBRARY 
N-N+l 

' SPACER OR MATCH, TRY AGRIN 
' PUT COMPUTER MOVE INTO CELL 
' DRAW GRME 
' COMPUTER HINS 

' COMPUTER WINS 
' UPDATE BOARD 
' ACCEPT NEXT USER MOVE 
' LOOP TO SELECT NEXT RESPONSE 
FIRST USER MOVE WAS 5 
COMPUTER MOVE 9, GET 2ND USER MOVE 



CALCULATE RESPONSE, GET 3RD MOVE 

' SET UP TRIAL COMPUTER MOVES 
' TRIAL CORRECT, COMPUTER WIN 
' OTHERWISE GET 4TH USER MOVE 



888 

890 

900 GOTO 930 

910 IF B<4>«0 THEN C-4 ELSE 

920 



SET UP TRIAL COMPUTER MOVES 
' TRIAL CORRECT, COMPUTER WIN 

C-8 ' SET UP TRIAL COMPUTER MOVES 
' TRIAL CORRECT, COMPUTER WIN 
' FINAL MOVE FOR DRAW GAME 
FINAL BOARD UPDATE 
YOU GOT A DRAW THAT GAME" 



IF B<C>«8 GOTO 1460 
930 C-10-U : P-C 
940 GOSUB 1750 : GOSUB 1700 
950 PRINT* 896, "CONGRATULATIONS - 
960 A*« MM :PRINT"DO YOU WANT TO PLAY ANOTHER GAME <Y OR N> 
970 A*=INKEY* : IF A*-"" GOTO 970 ELSE CLS 
980 IF H*-"Y" GOTO 440 

990 PRINT "SO LONG UNTIL NEXT TIME THEN" 
1000 PRINT 
1010 END 



1820 
1030 



' CORNER OPENING GAME, 1ST USER MOVE 5, 2ND MOVE 3 OR 7 
IF U-3 THEN C0-4 ELSE CO-2 ' SET UP TRIAL COMPUTER MOVES 



1040 GOSUB 1490 ' CALCULATE RESPONSE, GET 3RD USER MOVE 
1050 C»C0 : IF U-C THEN C-C+4 ' ADJUST TRIAL COMPUTER MOVE 
1060 GOTO 1460 ' COMPUTER WINS 



1070 
1080 
1090 
1100 

1110 



SIDE OPENING GAME REENTRY POINT 



IF U-8 GOTO 1150 

R-10*U+60 

IF U-l THEN R-80 

IF INT<U/2>«U/2 GOTO 590 
1120 IF U>6 THEN E-l 
1130 GOTO 610 

1140 ' SIDE OPENING GAME, 
1150 B<9)-1 : P-681 
1160 GOSUB 1700 : GOSUB 1370 
1170 IF U<4 GOTO 1230 
1180 IF U>5 GOTO 1270 
1190 B<3>«1 : P-41 



1ST USER MOVE IS 8 

FIND RESPONSES FOR SIDE GAME 

RETURN TO SELECT RESPONSES 

' RETURN TO SELECT RESPONSES 
1ST USER MOVE « 8 

' COMPUTER RESPONSE IS 9 
' UPDATE, GET 2ND USER MOVE 



COMPUTER RESPONSE IS 3 



1280 GOSUB 1700 : GOSUB 1370 
1210 IF U-l THEN C-6 ELSE C-l 
1220 GOTO 1460 
1230 ' SIDE OPENING GAME, 
1240 F-0 : H-6 
1250 IF U«l THEN F-l : H-4 
R-140 : GOTO 590 

SIDE OPENING GAME, 
1280 B<1)-1 : P-13 
1290 GOSUB 1700 : GOSUB 1370 
1300 IF U-3 THEN C-5 ELSE C-3 
1310 GOTO 1460 



1260 
1270 



UPDATE, GET 3RD USER MOVE 
COMPUTER RESPONSE IS 1 OR 6 
' COMPUTER WINS 
1ST USER MOVE - 8, 2ND - 3 OR 1 

' SET UP LAST 5 RESPONSES 
' RETURN TO SELECT RESPONSES 
1ST USER MOVE - 8, 2ND - 6 OR 7 
' COMPUTER RESPONSE IS 1 
' UPDATE, GET 3RD USER MOVE 

COMPUTER RESPONSE IS 3 OR 5 

COMPUTER WINS 



1320 
1330 



CENTER OPENING GAME REENTRY POINT 



R-U*10-10 ' FIND RESPONSES 

1340 IF U>5 THEN R-R-10 

1350 IF INT<U/2>-U/2 GOTO 590 ELSE 610 ' RETURN, GET RESPONSES 
1360 ' SUBROUTINE TO ACCEPT AND CHECK NEW USER MOVE 
1378 U-0 : PRINT* 896, "YOUR MOVE IS ?" ; 
1380 U-VAL(INKEV») : IF l>0 GOTO 1380 
1390 PRINTt 896, " 

1400 IF B<U>-1 GOTO 1440 ' ILLEGAL ENTRY 
1410 B<U>-1 : P-U 

1420 GOSUB 1750 : GOSUB 1650 ' UPDATE BOARD FOR USER MOVE 
1438 RETURN 

1440 PRINT "YOUR MOVE IS ILLEGAL. TRY AGAIN" ; : GOTO 1370 
1450 ' ROUTINE FOR COMPUTER WINNING THE GAME 
1460 P-C : GOSUB 1750 : GOSUB 1700 
1470 PRINT* 906, "***** I WON ****** 
1480 GOTO 960 

1490 ' CALCULATE & DISPLAY COMPUTER MOVE, GET USER MOVE 
1500 C-10-U : B<C>»1 : P-C 
1510 GOSUB 1750 : GOSUB 1700 : GOSUB 1370 
1520 RETURN 

1530 ' PRINT BIG BOARD 

1540 CLS : PRINT* 202, STRING*<41, CHR*<176)> 
1550 PRINT* 522, STRINQSC41, CHR*<176>> 
1560 FOR 1-0 TO 12 : J»I*64+23 
1570 PRINT* J, CHR*<191>; 
1580 PRINT* J+14, CHR«<191>; 
1590 NEXT I 
1600 PRINT* 20, 1 
1610 PRINTt 276, 4 
1620 PRINT* 596, 7 
1630 RETURN 
1640 ' PRINT BIG '0' 
1650 PRINT* P, CHR*<184); CHR*<135>; 
1660 PRINT* P+64, CHR*<191>; " ■ 



PRINT* 34, 2 ; 
: PRINT* 290, 5 
: PRINT* 610, 8 



PRINT* 48, 3 ; 
: PRINT* 304, 6 
: PRINT* 624, 9 



STRING»<3, CHR*<131>>;« 
CHR*<191>; 4CHR*<139>; CHR$<180); 



CHR*<139)j CHR*<180>; 



STRING*<3, CHR*<176) >* 
<CHR*<184)j 



CHR*<135>; 



1670 PRINT* P+128, 
1680 RETURN 
1690 ' PRINT BIG 'X' 

1700 PRINT* P,CHR*<143>; CHR*<176>; " "; CHR*<176>; CHR*<143>; 
1710 PRINT* P+64, " "; CHR*<179>; CHR«<140>; CHRf<179); " "; 
1720 PRINT* P+128, CHR«<188>; CHR*<131); " "; CHR»<131>J 
1738 RETURN «CHR*<188); 

1740 ' SET CELL POSITION TO PRINT BIG 'X' OR BIG '0' 
1750 ON P GOTO 1760, 1770, 1780, 1790, 1800, 1810, 1820, 1830, 1840 
RETURN 

18O0 P-347 : RETURN 

1810 P-361 : RETURN 

1820 P-653 : RETURN 

1830 P-667 : RETURN 

1840 P-681 : RETURN 
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1768 
1770 
1780 
1790 



P 
P-13 
P-27 
P-41 
P-333 



RETURN 
RETURN 
RETURN 



"towiwGounVry 
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MOBILE HOMES. INC. 

EXECUTIVE OFFICE • 912 FIRST WICHITA NATIONAL BANK BUILDING • 
PHONE 11 71723 Si23 • WICHITA FALLS. TEXAS 76307 



P O BOX 5003 



J. WESLEY B. TAYLOR 



15 May 1979 

Mr. Gordon Lloyd, Publisher 
TR>-80 Users Group Newsletter 
7554 Southgote Road 
Fayetteville, NC 28304 

Re: LEVEL I Magazine on cassette tape 
TapeTalk Magazine on cassette tape 

Dear Mr. Lloyd: 

I have previously sent to you photocopies of my correspondence with the 
publishers of LEVEL I magazine and TapeTalk Magazine. I have had no 
reply from either of these publications. 

In my letters to them I have tried to be understanding of any problems they 
may have encountered in getting into production, asking only that they let 
me know the status of their respective ventures and when subscribers could 
look forward to receiving delivery under their subscription contracts. 

Having had no reply from them, I can only assume that each of the publishers 
has perpetrated a fraud against their subscribers, using the United States mail 
as the medium for conducting the scheme. Therefore, I am today filing formal 
complaints against both of the named publishers, the complaints to be filed 
with the Attorney General of the State of California, the Chief of Postal 
Inspection having jurisdiction over the locale in which the publishers operate, 
the Federal Trade Commission, and the Internal Revenue Service. 

I feel that I have been treated wrongfully and unfairly, that I have been 
defrauded of my money, and that I am entitled to redress and damages. I do 
not know how many others may be victims of this apparent fraudulent scheme, 
but I shall be pleased to have them join me in my complaint so they may 
recover any subscription payments they may have lost. I plan to vigorously 
push this matter before every possibly interested governmental agency and 
court of law to seek a satisfactory settlement of my claim against the party or 
parties responsible for this situation. 

I hope that your publication, as well as other computer user/hobbyist periodicals, 
will feel free to quote me in my feeling and intentions in this matter. 

Sincerely,. . . My personal mailing address: 

£- //6£*J*?f^&f ^M^ZZ-r' j^ We$ | ey B# Taylor 

(7 ' . ' J*. C P.O. Box 4391 

"■ Wesl0 y B - Taylor Wichita Falls, Texas 76308 

JWBT/self Phone- Office 817 723-5523 

Home 817 692-2687 



Mr. Gordon Lloyd 
TRS-80 Users Group 
7554 Southgate Road 
Fayetteville NC 28304 



Dear Mr. Lloyd: 



618 Hal Greer Boulevard 
Huntington, WVA 25701 



May 9, 1979 



Some time ago I sent you photocopies of an editorial 
concept I was trying out, "DocuWare." I haven't had 
any reply I suspect that this may be because of my 
references to World Power's distribution in your pub- 
lication. Two days ago I discovered that World Power 
Systems was a huge fraud. Perry Pollock was arrested 
by the district attorney in Tucson last week. I had 
ordered a master control unit, made inquiries, and 
Monday found their phones unconnected. 

I called California Digital who tipped me off. I then 
called the D. A. and then a couple of the slicks, and 
learned that World Power will probably turn into a 
huge case, having ripped off hundreds of people. 

I won't be going ahead with DocuWare for awhile un- 
til I see what happens with what looks like will be- 
come a landmark case in personal-computer-based 
fraud. As I mentioned in my draft letter, regulation 
of the personal software field could well result. 

Anyway ..... I noticed your call for articles in the 
April 1979 issue (I got two pages 35 but no 33; 
could you send it?) and would like to contribute. 
I have my own typesetting equipment, so if you 
specify width of column you want submissions in, 
I can accommodate. A couple of Not So Basics are 
enclosed. 

I like your publication because it gets right down to 
some of the handiest tips on the TRS-80 ever. The 
keyboard disabling POKE by Michael Chertok was 
just what I was looking foe I would like to compile 
a list for the newsletter on several of handy POKES 
and PEEKS, the kind that aren't in the book but are 
great for particular applications. 



Please let me hear from you .. thanks. 



enc. 



Chris Gundlach 
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NOT SO BASIC 

TIPS FOR TRICKS WITH LEVEL II BASIC 

BY CHRIS GUNDLACH. 618 HAL GREER BOULEVARD. HUNTINGTON WVA 



MACHINE-SPEED GRAPHICS IN BASIC 

Yes, you can achieve machine-speed printing of your TRS-80 graphics. It's done 
by simply using some string functions in a clever way. 

I won't try to describe drawing a graphic, only storing it and reprinting it 
You probably have your own program that creates some kind of graphics with 
various SETs or POKEs. 

Once you get your graphic onto the screen, determine where the image is posi- 
tioned on the screen using the PRINT@ numbers on the worksheet. Add the 
PRINT@ location to 15360, and you'll know the memory locations. 

Let's say, for instance, that you have a heading with some fancy boxes along 
with text. The heading is in the first four lines of the screen, which are PRINT® 
positions through 255. Now do this: 

30000 FOR F * 15360 TO 15615 
30010 A$ - A$+CHR$(PEEK{F)) 
30020 NEXT 

Now clear the screen and 
PRINT AS 

How 'bout that? Your graphic heading returns at lightning speed. The description 
I've written above, of course, applies to your "discovery" of this technique. Once 
you see how it works, you can design routines like this into your program. You 
can, for instance, use a similar PEEK routine to give you all the ASCII numbers 
for the characters in your heading; then type those numbers into a DATA state- 
ment for another program. Then, when you initialize variables in the program, 
do a READ loop to concatenate everything into one string: 

FOR F - TO 255 : READ A : A$=A$+CHR$(A) : NEXT 

(Put this in your own program, along with the appropriate DATA numbers.) 

pne disadvantage is that the 255-character graphic will occupy 255 bytes as a 
string variable; memory space is what you pay for speed. With some careful and 
logical studying of the ASCII codes in your Level II manual, however, you can 
replace large blank areas with tab codes. You can also design smaller pieces of 
graphics, such as boxes or dice. In order to make these variables printable at any 
location on the screen, you have to provide linefeeds and backspaces or other 
tricks to move the print position (the cursor) about. The following creates three 
bars: 

AS - STRING$(16.191) +STRING$(2.26) + STRINGS(18,24) + STRING$(16.191) + STRING$(2.26> + 

STRINGS(16,24) ♦ STRING$(16.191) 

Now just PRINT A$ anywhere you want on the screen. The three parallel bars 
will come out fine and fast! STRING$(2,26) is two downward linefeeds, and 
STRING$(16,24) backs up the cursor 16 spaces for the STRING$(16,191), the 
bar. This method allows you to use PRINT@ to locate boxes, spaceships, robots, 
or whatever . . . don't go closer to the edges than the "character" width, or it'll 
flop over to the next line. And, if you set up the STRINGS as variables themselves, 
you can go crazy "typing" your pictures by just typing the variable! Have fun. 



WHERE WAS I? 



This trick will be useful to those of you designing word processors or terminal- 
like displays. 

One useful screen format I've found, for instance, is: 



Data or result! in this part of screen 



-ThiiiiSTRING$<64,140) 



Typing instructions in this part of the I 

vj^ J 

While your program is printing data in the top area, of course, that's where the 
cursor is located. Suppose you wish to provide an INKEY$ interrupt to allow 
the operator to input or change a piece of data, by typing a shift character, and 
then restore the cursor to its former location. The little routine below will let 
you do this: 

[Your INKEY$ response will jump your program to the following] 

30000 CL-PEEKM6416) : CH«f»EEK(16417) 

30010 PRINT* 768,"";: INPUT "[your question or your print statement of instructions] 
30020 POKE 16416, CL : POKE 16417, CH 

30030 RETURN [you return to the main program routine that uses the 
top of the screen] 

Locations 16416-16417 contain the cursor location. A routine set up like the one 
above allows you to memorize the cursor location, then print in a different loca- 
tion, and then return to the former cursor position. This is very flexible because 
you do not have to anticipate where the cursor might have to go, nor do you need 
to know hex numbers. (This technique, by the way, is an in-Basic introduction to 
the memory-save and-recall routines you will learn to perform when you begin 
assembly language programming.) 

This is a nice feature to include in graphic-ized games. You can provide for a shift-I 
to print instructions or remarks at 768 (or any other location), and then return to 
your main program with the cursor (and printing) resuming from where it left off. 
To erase the bottom of the screen, just PRINT@768,CHR$ (31 ) before you go back 
to the main program. CHR$(31 ) is "clear to the end of the frame." It does. 



MJCRQ 

MANAGEMENT 

SVSTEMS 



MICRO-COMPUTER SPECIALIST 

LARRY OWENS 
♦ 15% Discount: TRS-80'b* 




RAOIO SHACK DEALER - MINI MALL 
DOWNTOWN SHOPPING CENTER 
CAIRO. OA 31728 



(912) 377-7120 
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After waiting over a year for someone else to come up with 
some practical programs for my Amway business, I finally 
have written my own. The most useful one is Level II 16K 
and holds the U prices of each of 290 items in memory; I 
just enter the quantity and stock number and the computer 
generates an order form, doing all multiplication, addition 
of U columns, and adds tax and handling. Really a terrific 
timesaver for verifying the many orders I process each 
week from my over-250 distributors. Also, another program 
keeps track of the sponsorship lines of these distributors, 
including an indication of those not renewed - in effect, 
it allows me to look at each branch of our Amway "family 
tree". Another program keeps track of the totals in a 
simple 12 -column ledger bookkeeping program, and a fourth 
program generates a monthly gross profit summary. 

All four programs are available on cassette (no disk 
or printer required) for $24.95, including necessary 
documentation. Prices updated on cassette every January, 
May and September for $10. 

Fred Blechman K6UGT 
7217 Bemad ine Av., 
Canoga Park, CA 91307 
(213) 346-702 U 



18 'THIS PROGRAM SHOWS <IN SLOW MOTION) HOW THE TRS-88 MEMORV- 

15 'MAPPED KEVBOARD SCAN WORKS — NOTICE WHAT HAPPENS WHEN VOU 

20 'HOLD DOWN VARIOUS KEYS. THIS ALL GETS SORTED OUT BV THE 

23 'INPUT ROUTINE IN ROM <AT 995 DEC, >. FOR MORE DETAILS, SEE 

38 'THE EXCELLENT ARTICLE BV WILLIAM BARDEN IN TRS-88 COMPUTING 

35 'VOL 1* • 2. 

68 ' PHELPS GATES 

78 ' 6 CRESTWOOD TR. PK. - RT. 4 

88 ' CHAPEL HILL NC 27514 

98 ' 5/13/79 

188 DEFINTA-2:CLS:S-14336:'START OF KB MATRIX 

118 PRINTW, " LOC. CONTENTS BIT VALUE OF CONTENTS" 

128 1-1 

138 F0RJ-1T08 

148 T-S+I:PRINT8J*64, T; :P-PEEK<T> :PRINTP, 

158 H-128:F0RK«1T08: 'DISPLAY BIT VALUE OF CONTENTS 

168 PRINT-<<PANDM)08>i :M-M/2 

178 NEXT K 

188 1-1*2: 'COMPUTER SCANS S*i# S+2, S+4, S+8, ETC. 

198 PRINT8J*64+46, "< SCANNING"; 

288 PRINTtJ*64-28, CHR*<38>; 

218 NEXT J 

228 PRINTM36,CHR*<3i>:GOT0128 



SAVE 18& 15* OR MORE ON ALL COMPUTERS. PERIPHERALS, * SOFTMRRE. 

NO TAXES ON OUT-OF-STATE SHIPMENTS. 

WARRANTIES HILL BE HONORED BV YOUR LOCAL 'RADIO SHACK' (£) STORE. 

VERBATIM DISKETTES *3. 59 EACH 

HEMRV'S ENGINEERING CO. 

P BOX 629 

PRINCE FREDERICK, MD 29678 

(391) 855-6777 <381> 525-3142 



FOR SALE 

Level II 16K TRS-80 computer Many tapes (games-etc. ) plus tape 
case. 15 Issues TRS-80 users group, 12 Issues BYTE magazine. 
Level II Manual, Level I Manual in Memory Information 
system Personal Finance Package. 8 Months old. Hardly Used. 
Excellent Condition!!! Little one on the way, need the money!!! 
Cash or Money order only. $1100. 00- Why wait? 
Call Garry Morgan After Five 404-554-4956 
8am-12noon 404-554-3021 



Dear Gordon, 

What I need is not so much as a program but simply a poke 
statement that I could insert to command the program to run with- 
out typing in run and then enter example I had in mind 

Load the cassette with a tape that has program after program on it. 
Manualy you would once have to type in cload and from then on the 
computer would cload — shut off the recorder—and instead of re- 
turning a prompt and the word ready, it would run. Upon completing 
the program it would find as its last statement cload and start all 
over again. A simple problem? 

Arthur Plante 
489 Middle Rd. 
Acushnet, MA 02743 



THE BITPICKER 



TOOLBOX 



By Steve MacGregor, 3701 Vf tfethersf ield, Phoenix, Arizona 85029 

Here is a divide subroutine that will divide a 16-bit or 31-bit 
positive number by a 16-bit positive number, and give a 16-bit 
quotient and 16-bit remainder. To use it, call "DIV16" with the 
dividend in HL, or "DIV31" with the dividend In DE and HL (high- 
order 15 bits in DE, low-order 16 bits in HL; bit 7 of D is not 
used), and with the divisor In BC in either case. The quotient 
is returned in HL, and the remainder in DE. The AF, BC, IX, and 
IY registers are not affected, and are returned unaltered. 



4980 


110000 


DIV16 


LD 


DE.0 


4983 


P5 


DI731 


PUSH 


AP 


4984 


3E10 




LD 


A, 16 


4986 


29 


D0 


ADD 


HL.HL 


4987 


EB 




EX 


DE.HL 


4988 


ED6A 




ADC 


HL.HL 


498A 


B7 




OR 


A 


498B 


ED42 




SBC 


HL.BC 


498 D 


3003 




JR 


NC.D1 


498P 


09 




ADD 


HL.BC 


4990 


1801 




JR 


D2 


4992 


13 


Dl 


INC 


DE 


4993 


EB 


D2 


EX 


DE,HL 


4994 


3D 




DEC 


A 


4995 


20EF 




JR 


NZ.D0 


4997 


Fl 




POP 


AF 


4998 


C9 




RET 





The origin given here is 4980 because that was easy to type In 

with T-BUG, but the routine can be loaded anywhere, since it 

contains no absolute addresses. ^ j il 
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19 'HERE'S A Z-88 DISASSEMBLER PROGRAM — GIVES OPERANDS IN 

29 'BOTH DECIMAL AND HEX (HANDY FOR POKING) 

38 'FOR fl TAPE OF fl SLIGHTLY FANCIER VERSION, SEND TWO BUCKS 

48 'TO COVER TAPE AND POSTAGE 

58 * PHELPS GATES 

66 ' 6 CRESTWOOD TR. PK. - RT. 4 

78 ' CHAPEL HILL, NC 27514 

80 ' <919>-967-5193 

9B ' 5/8/79 

IBB CLEAR58:DEFINTE-«:DEFSTRA-D:DIMA<97>,VA<i2>,VV<23> 

119 DATA 8/ 8, 8, 7, 15, 23, 31, 39, 47, 55, 63, 8, 217 : '1-BVTE INSTRUCTIONS 

128 DATA B, C, D, E, H, L, (HL>, A, NZ, Z, NC, C, PO, PE, P, H 

138 DATA BC DE, HL, SP, (IX+, ( IX*, ADD, ADC, SUB, SBC, AND, XOR, OR, CP 

148 DATA BCDE,HL,AF, <HL>, <IX), <IV),HL, IX, IY, RLC RRC, RL, RR, SLA, SRA, X, SRL 

158 DATA BIT, RES, SET, NOP, EX, DJNZ, RLCA, RRCA, RLA, RRA, DAA, CPL, SCF, CCF, RET, EXX 

168 DATA JP, X, OUT, IN, EX, EX, DI, EI, NEG, RETN, IN 8, RETI, IM 1, IM 2, RRD, RLD, LDI, CPI 

178 DATA INI, OUT I, LDD, CPD, IND, OUTD, LDIR, CPIR, INIR, OTIR, LDDR, CPDR, INDR, OTDR 

188 DATA INC, DEC 

198 F0RN-8T012:READVA(N>: NEXT :F0RN-8T097:READA(N>: NEXT 

288 F0RJ«9T023:READW<J>:NEXT:'2-BYTE INSTRUCTIONS 

218 DATA68, 69, 78, 77, 96, 94, 183, 111, 168, 161, 162, 163, 168, 169, 178, 171 

228 DATA 176, 177, 178, 179, 184, 185, 186, 187 

238 A"STR$ <N> : INPUT"START<DEC. >"; A:X-VAL<A>: IFX>32767THENN«X-«5536ELSEN«X 

235 PRINT-TO STOP LISTING, PRESS 'X'" 

248 I-8:T«8:C«"":D-"" 

245 'SUBROUTINE AT LINE 388 DOES MOST OF THE DISASSEMBLY 

258 GOSUB388:IFC»"HL"THENC-A<37*I):'I»l FOR "IX", 2 FOR "IV" 

268 IFD-"HL"THEND-A<37+I> 

278 G0SUB878:PRINTTAB(17);B; : IFC-""THEN288ELSEPRINTTAB<24>; C; 

275 IFDO""THENPRINT", ";Di 

298 PRINTTAB<36); :FORX»NT0N+T:P»PEEK<X> G0SUB868PRINT" "j : NEXT :N"X: PRINT 

298 IFINKEY$-"X"THEN238ELSE258 

388 I»8:B«"LD":T*8:0"":D*C 

318 P-PEEK(N+T>:G0SUB788 

328 0NFG0T0458, 468, 488 

338 0NHGOT0378, 398, 418, 428, 428, 438, 448 

348 B-"JR":IFG<3THENB«A<G+51>:IFG*8THENRETURN 

345 IFG-1THENC-"AF,AF'": RETURN 

358 T«T*i:U«PEEK<N+i>:IFU>127THENU*U-256 

368 X«N+U*2:G0SUB778:IF<G«2)0R(G«3)THEN848ELSEC»A<G+4):G0T085e 

378 DV-A< J+16) : IFE-8THENC«DV : G0T0729ELSEB»"ADD" : C»"HL" : D*DY : RETURN 

398 DY«"A":IFG>3THENIFG<6THENDV»"HL" 

398 IFG>3THENG0SUB748ELSEIFG>1THENDX«"<DE)"ELSEDX»"<BC>" 

488 D»DY : IFE«8THEN848ELSEC=DV : G0T0858 

418 B-A<96+E):OA(16+J>: RETURN 

428 B«A<H+92>:GOSUB798:G0TO848 

438 G0SUB798:C«0X:T*T+l:GCSie82e:G0T0858 

448 B-ACG+54): RETURN 

458 IFP»118THENB»"HALT" : RETURN : ELSEG0SUB798 : C*DX : G0SUB818 : G0T0858 

468 GOSUB818 

478 B*A<G+22> : C«"A" : IF<G<4)AND<G<>2)THEN858ELSE84e 

488 0NHG0T0498, 518, 538, 568, 578, 588, 598 : B*"RET" : C-ACG+8) : RETURN 

498 IF E ELSEB»"P0P":G0T0838 

588 IFJ<2THENB-A<62*J): RETURN :ELSEIFJ«2THENB»"JP":C»A< 1*34): RETURN 

585 C«"SP":D«"HL": RETURN 

518 B-"JP" 

528 C«A<G+8) : G0T0728 

538 B»A<G+64> : IFG>5THENRETURNEL5EIFG»8THENG0SUB768 : G0T0848 

535 IFG-iTHEN688 



548 D»"HL":IFG»4THENC»"<SP>": RETURN :ELSEIFG-5THENC*"DE" : RETURN 

558 C«"A":X*PEEK<N+1>:G0SUB778:G0SUB758:T»T+1:G0T0858 

568 B="CALL":G0T0528 

578 IFE*8THENB»"PUSH" : G0T0838 : ELSEIF>2THEN638 

575 IFJ>8THENI»<J+l)/2:T»T+l:GOT03ieELSEB«"CAa" G0T0738 

588 X»PEEK<N+1>:G0SUB778:T-T*1:G0T0478 

598 B-"RST":X«G*8:G0SUB778:G0T0848 

688 T«T+1:IFITHENP»PEEK<N+3>ELSEP*PEEK<N+1> 

618 GOSUB78e:IFFTHEN628ELSEB-A(48Hi>:GOSUB818:G0TO848 

628 B=fl(47+F):X«G:GOSUB778:C=DX:GOSUB818:GOTO850 

638 T-T+l : F0RL-8T023 : IFW<L>«PEEK<N+l)THENB«A<L+72> : RETURN : ELSENEXT 

648 P=PEEK <N+1) : G0SUB788 : IFF01THEN718ELSEIFH-7THEN698 

645 0NHG0T0668, 678, 698 

658 IFK>3THEN7ieELSEB»"IN":O"A":G0SUB79e:G0SUB75e:G0T095e 

668 B-"OUT a :D-"A a :GOSUB798:GOSUB758:G0T0848 

678 B«A<25-2+E>:0"HL":D-A<i6+J>: RETURN 

698 G0SUB74e:DV^<16+J):IFETHENC-DY:GOT0858:ELSED-DV:G0T084e 

698 DX»"A":IFETHENDY«"R"ELSEDY»"I" 

788 C«DY:IFG<2THEN858ELSED«DY:GOT0848 

718 B-"?": RETURN 

728 G0SUB768:G0T0e58 

738 G0SUB768:G0T0948 

748 G0SUB768 

758 DX-"<"*DX+">":RETURN 

768 T«T+2:X-PEEX<N+T-1H256*PEEK<N4T>:TH-N+T 

778 DX«STRS(X-<X<8>*65536>:DX-HID«(DX,2>: RETURN 

798 F»P/64:G«<PAND56>/8:H-PAND7:J-Gy2:E«GANDl: RETURN: 'INSTRUCTION FIELDS 

798 L«G 

888 DX^<L>:IFL06THENRETURNELSEIFI«8THENR£TURN 

885 DX»fl(I+19)*MID«<STR»<PEEK<N+2)),2>+">":T«T+l:RETURN 

818 L*H:G0T0898 

828 X-PEEK<N*T):G0T0778 

838 OA<38+J): RETURN 

848 C-OX: RETURN 

858 D-OX:RETURN 

868 Q-P/16 : P-P-16*Q : PRINTCHR$<Q+48-7*<Q>9> >; CHR$<P+48-7*<P>9> >; 

865 RETURN 

878 P-PEEK<VARPTR<N)+l):G0SUB868:P»PEEK<VARPTR<N)):G0SUB86e 

888 PRINTN-65536*<N<e>;TAB<i2>> :RETURN 



TRS-88 QUALITY SOFTWARE 



LEVEL I. AND LEVEL II. 

II. IDM-I CASSETTE DATA BASE $28. 

•2. INV-I INVENTORY CONTROL $28 

#3. STOCK-I SECURITY INFO. $18. 

•4 BANK-I CHECK BALANCE $10. 

•5 FINANCE-I STOCK-I A BANK-I $15. 



DISKETTE. 

•12. MAIL-III MAILING LIST $35. 

#14 MORD-III WORD PROCESSOR $35. 

#21. INV-I I I INVENTORY CONTROL $35. 

#22. KEY-III KEY RANDOM ACCESS $15. 

PRICE INCLUDES POSTAGE, CASSETTER t DOCU. 



LEVEL II 






#11 


MORD-I 


MORD PROCESSOR 


$25. 


•15. 


MAIL-I 


NAME AND ADDRESS 


$25. 


•16 


SORT- I 


SORT UTILITY 


$18. 


#17. 


STAT- I 


STATISTICS 


$18. 


#18 


KEY- 1 


KEY-ACCESS 


$18. 


#19. 


SALE- I 


SALE ANALYSIS 


$18 


#28. 


UTIL-I 


SORT-I * KEY-I 


$16. 



MICRO ARCHITECT 
96 DOTHAN ST. 
ARLINGTON, MA 82174 
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Dear Gordom 

In Vol 1 No 4 of the Newsletter, page 7 you placed 
a letter I sent to you in regard to the Practical Auot- 
mation #)MPT-6 Line Printer and #UP-72 Interface. 

I received from CLOAD Magazine, the address of PM 
(Trap Falls Rd.Shelton.CT. 06484) and I sent a letter, 
requesting information about adaption of this unit to 
the TRS-80. I got the answer of, "we dont sell to the 
individual, only to dealers". I didnt even ask this 
question. 

I was informed though that Digital Group and the 
Integral Data Systems were the agents for this unit and 
they sell computers and I dont think they would be in 
the mood to supply informtaion to a TRS-80 user. 

Maybe they dont realize the potential sales to the 
TRS-80 users of this small, 8", and economical unit. 

Even Radio Shack hasnt even answered several of my 
letters in regard to this unit. . . . 

Maybe if enough of the TRS-80 Users Group wrote to 
R/S and PM about this unit they would wake up to the 
fact that there is intrest in this unit and at least 
let us know. 

One more thing I might mention. The bologna that 
R/S puts out that it only takes about 6 weeks to get 
a computer after ordering is. a lot of bologna. I ordered 
a Level II, 16k unit 14 Feb 78 and havnt received mine 
yet, but was told that it would be sent around the 15th 
of May 78,(1 guess they ment)but I havnt seen it. There 
are plenty of Level I's available. So, fortunately, I 
have a local R/S store manager who got a Level I for me 
to learn on until mine arrives. 

I am pleased with the new format of the TRS-80 Users 
Group Newsletter, center folded, page numbered and book 
form and we are getting many interesting tiems to read and 
programs to play with. 

Keep up the good work. 

Thanks s? , 

Jef f ersonville , OH . 
43128 



Dear Gordon, 

The TRS-80 USERS Have an Amateur Radio Net which meets on the 
air each Sunday at 1900 Hours GMT for one to two hours. The 
frequency is 14.342 MHZ and is coordinated on West Coast by myself. 

WA6YKH BILL, 
and on the East Coast by VD6SAS, also BILL. 

We now have 92 members of the net including members 
from Mexico and Canada. 

You may use this info anyway you desire. 

Sincerely , 

W. J. Hyatt 

14721 Candeda Place 
Tustin , CA 92680 



201 N. Broadmore St. 
Plentywood, MT 59254 
6 June 1978 

TRS-80 Users Group 
7554 Southgate Rd. 
Fayetteville, NC 28304 

10 INPUT F 

20 PRINT F| 

30 IF F PRINT "TRUE": GOTO 10 

40 PRINT "FALSE": GOTO 10 

F can be any expression. The false branch will be 
executed if F>=0 and F<1. But be careful; a bug 
causes anything >". 9999997 and <1 to be printed as 
1.0000005. Still, if you input anything >=1 (that 
includes 1.0000005) the true branch will be excuted. 
Also, all negative numbers result in a true branch. 

THEN and T. are completely unnecessary, though they 
are nice to have. If you want to go to another line, 
you can just say GOTO or G. If you want to execute 
some other statement just say it and omit THEN. 

Other people have come up with these ways to change 
to 32 characters per line; >P.#"2" (rewind) 
10 INPUT "EEE >CL. 

20 GOTO 10 >10CS. 

(Craig H. Reinhardt) >R. 

(Timothy Loos) 
With both of these the keyboard is locked up. Some- 
times, by playing with the on/off switch, I can get 
mine in double width mode. The keyboard is unlocked 
so you can program in that mode. Sometimes you'll 
have to push CLEAR a couple times first. Type exactly 
as you would in normal mode. 

Anyone out there got hardware brains? I need a cir- 
cuit to attach to the "card slot for an RS-232 inter- 
face — or whatever! " in the expansion interface. 
The circuit should produce accepable output and 
accept input from an RS-232 interface in a KSR-43 
TTT. If anyone thinks they can help, write me. 

The Newsletter is great!! To E.O. Tuck: Your sub- 
routines are super! Yes, a lot of us have the bug 
in INT. 

Sincerely, 



William R. Trowbridge 
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Dr. Jack W. Crenshaw 
2114 Cecille Drive SW 
Huntsville, Ala. 35603 



Dear Bob: 



Since ny article on T-BUG, I've found out how the jump out of BASIC 
works. Thought I would share it with you. Incidentally, I didn't figure 
out myself. The information comes from two sources: Barry Lewis of 
Washington, D.C. and James Falk of Sea Cliff, NY. 

The trick is super simple. When the BASIC interpreter reads a tape, 
it executes a subroutine call. This means that the CPU pushes the current 
address (inside the monitor) onto the stack. The address is popped off 
of the stack when the subroutine return is encountered. To branch out 
into some user program, all you have to do is to make sure your program 
overlays the stack area, with the desired address replacing the one BASIC 
put there. When the tape finishes reading, the return cuases this address 
to be popped off, and presto... 

The magic address is 41FE-41FF. Incidentally, Barry says that you don't 
have to reload all of T-BUG when you accidentally get back to BASIC. All you 
need is the branch. It should be possible to write a tape with Just the 
start address in 41FE-41FP. I tried that, but it didn't work. Apparently, 
T-BUG needs some extra initialization on a restart. Anyone have any ideas? 

Here's some other random info: There is a character generator chip... 
a MCM 6670. The RAM chips are NEC uPDZ»l6D or Mostek MK4U6. (Courtesy 
Lea Logan, Norfolk, Va. ) George Kowalakl has a disassembled listing of 
Level I BASIC. Write him at 1333 Holmes Dr., Colorado Springs, Colo. 80909. 

Prom various sources, I have received various partial scematics of 
the circuit. No complete one as yet. 

Barry Lewis claims to have modified the tape I/O software to speed it 
up. Apparently the speed is controlled by a counter which is easily changed. 
Barry is running at 1200 baud! Someone else has got a Teletype interfaced 
to the unit. 

I suppose one of the questions many of us have been asking is how 
much support we can expect from Tandy, with respect to using the unit for 
things it was not designed for. I recently read an interview with Chuck 
Peddle of Commodore, in which he flatly stated the they would never release 
schematics of the P3T. Since Tandy hasn't either, it was looking bad for 
the good guys. !Io more. I understand that Tandy expects to be offering full 
schematics soon. Not only that, the Assembler comes with a list of all 
usable entry points in both Level I and Level II! Take that. Commodore! 



INPUT AND RUN 'PATCH '-BEFORE YOU START YOUR PRINTER AND 
YOU WILL GET 68 LINES ON A PAGE. AT THE 
END OF YOUR RUN TYPE 'LPRINT CHR*<12>' 
AND SET THE PRINTER ON THE NEXT PAGE. 



100 fl-40960-65536 

110 RERD B 

120 IF B=300 THEN 200 

130 POKE R, B 

135 R=fl+1 

140 GOTO 110 

150 DRTfl 245, 197, 213, 229, 33, 41, 64, 126, 254, 60, 204, 20 

160 DRTR 160, 225, 209, 193, 241, 195, 141, 5, 62, 0, 50, 41, 64 

170 DRTR 6, 6, 5, 8, 62, 10, 285, 59, 0, 3, 200, 195, 27, 160, 380 

200 POKE 16424, 61 : POKE 16425, 

210 POKE 16422, : POKE 16423, 160 



R.G. Lloyd 
TRS-80 Users Group 
7554 Southgate Rd* 
Fayetteville, N.C. 
2830if 

Dear Gordon, 

Her* are some thoughts on C.P. Tiglao's problem of retaining 
and displaying data after he has used the INPUT# or PRINTS 
functions* 

I haven't tried it, but I think that If the alphanumeric 
variables that are being used were substituted by the 
a(x) array that these variables could be dispJ^red with a 
slaple loqp program as long as the memory had not been powered 
down after loading. 



Something like: 



10 Tor X = 1 to 1 - 1 (PP 225 lin« 70) 
20 P. A(x),A(X+60) 
30 Next X 



By using A(X) as the array for temp and A(x+60) as the humidity 
array you could call up at mill any part of this information* 

I use this program to display the variables in a business program 
I am writing to work as a diagnostic* 

If there is ANYBODY that can tell me how to hook up an ASCII Select- 
ric, an RO-33, or any 20 mil or RS 232C device without going to the 
terribly expensive Interface connector I would greatly appreciate 
it* Call me collect weekends at 8 17*44 1*8052 or use the address 
below* I would gladly pay a reasonalbe amount for Information OR 
a working unit* I can use screen-read* **or whatever, * I just need 
the ability to get it on 8i by 11 forms on regular paper* 

Also I am interested in anyone e' business programs that are useful 
in 16K memory without disc or Level II (yet)* 

Has anyone done anything yet on anykind of process control of extern- 
al devices? This is another area that I am Interested In, but my 
level of understanding is lacking.... 

You have a fine newsletter* **keep up the good work I 

Pete Charlton 
491 Elbow Ct* 
Weatherfbrd. Tx* 76O86 
812=441-8052/8043 
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Z88 


6880 


HEX 


OCT 


DECIMAL 


BINARY 






NOP 


NOP 




88 


880 


00 


8 

















LD BCNN 


LXI 


B 


81 


881 


01 


8 














1 


LD <BC),fl 


STAX D 


82 


882 


02 

















10 


INC BC 


I NX 


B 


83 


883 


03 

















Oil 


INC B 


INR 


B 


84 


Old A 


04 

















10 


DEC B 


DCR 


B 


85 


885 


05 

















10 1 


LD B, N 


MVI 


B 


86 


886 


86 

















110 


RLCfl 


RLC 




87 


887 


07 


8 














111 


RDD HL, BC 


DAD 


B 


89 


811 


09 














1 


1 


LD A, <BC> 


LDA> 


B 


8A 


812 


10 














1 


10 


DEC BC 


DCX 


B 


86 


813 


11 


8 











1 


11 


INC C 


INR 


C 


8C 


814 


12 














1 


10 


DEC C 


DCR 


C 


8D 


815 


13 














1 


10 1 


LD C N 


HVI 


D 


8E 


816 


14 














1 


110 


RRCfl 


RRC 




8F 


817 


15 














1 


111 


LD DE, NN 


LXI 


D 


11 


821 


17 











1 





1 


LD <DE>, A 


STAX D 


12 


822 


18 








8 


1 





10 


INC DE 


I NX 


D 


13 


823 


19 











1 





Oil 


INC D 


INR 


D 


14 


824 


20 











1 





10 


DEC D 


DCR 


D 


15 


625 


21 











1 





10 1 


LD D, N 


MVI 


D 


16 


826 


22 











1 





lie 


RLA 


RAL 




1? 


827 


23 











1 





ill 


ADD HL, DE 


DAD 


D 


19 


831 


25 











1 


1 


1 


LD A, <DE> 


LDAX D 


1A 


832 


26 











1 


1 


10 


DEC DE 


DCX 


D 


IB 


833 


27 











1 


1 


Oil 


INC C 


INR 


E 


1C 


834 


28 











1 


1 


10 


DEC E 


DCR 


E 


ID 


835 


29 











1 


1 


10 1 


LD E.N 


MVI 


E 


IE 


836 


30 











1 


1 


110 


RRA 


RAR 




IF 


837 


31 











1 


1 


111 


LD HL, NN 


LXI 


H 


21 


841 


33 








1 








1 


LD <NN>, HL 


SHLD 


22 


842 


34 








1 








10 


INC HL 


I NX 


H 


23 


843 


35 








1 








Oil 


INC H 


INR 


H 


24 


844 


36 








1 








10 


DEC H 


DCR 


H 


25 


045 


37 








1 








10 1 


LD H, N 


MVI 


H 


26 


846 


38 








1 








110 


DAA 


DAA 




27 


847 


39 








1 








111 


ADD HL, HL 


DAD 


H 


29 


851 


41 








1 





1 


1 


LD HL, (NN> 


LHLD 


2A 


052 


42 








1 





1 


10 


DEC HL, 


DCX 


H 


2B 


053 


43 








1 





1 


Oil 


INC L 


INR 


L 


2C 


054 


44 








1 





1 


10 


DEC L 


DCR 


L 


2D 


055 


45 








1 





1 


10 1 


LD L, N 


MVI 


L 


2E 


056 


46 








1 





1 


110 


CPL 


CMA 




2F 


057 


47 








1 





1 


111 


LD SP, NN 


LXI 


SP 


31 


061 


49 








1 


1 





1 


LD <NN>,A 


STA 




32 


062 


58 








1 


1 





e i e 


INC SP 


I NX 


SP 


33 


063 


51 








1 


1 





Oil 


INC <HL> 


INR 


M 


34 


064 


52 








1 


1 





10 


DEC <HL> 


DCR 


M 


35 


065 


53 








1 


1 





10 1 


LD <HL> 


MVI 


M 


36 


066 


54 








1 


1 





110 


SCF 


STC 




37 


067 


55 








1 


1 





111 


ADD HL, SP 


DAD 


SP 


39 


071 


57 








1 


1 


1 


1 


LD A, <NN> 


LDA 




3A 


072 


58 








1 


1 


1 


10 


DEC SP 


DCX 


SP 


3B 


073 


59 








1 


1 


1 


Oil 


INC A 


INR 


A 


3C 


074 


68 








1 


1 


1 


10 


DEC A 


DCR 


A 


3D 


075 


61 








1 


1 


1 


10 1 


LD A, N 


MVI 


A 


3E' 


676 


62 








1 


1 


1 


lie 


CCF 


CMC 




3F 


077 


63 








1 


1 


1 


ill 


LD B, B 


MOV 


B, B 


48 


100 


64 





1 











e e o 


LD B, C 


MOV 


B, C 


41 


101 


65 





1 











e e l 


LD B, D 


MOV 


B, D 


42 


102 


66 





1 











e l e 



LD B, E 


MOV 


B, E 


43 


103 


67 





1 











Oil 


LD B, H 


MOV 


B, H 


44 


104 


68 





1 











i e e 


LD B, L 


MOV 


B, L 


45 


105 


69 





1 











1 1 


LD B, <HL> 


MOV 


B, M 


46 


106 


70 





1 











lie 


LD B, A 


MOV 


B, A 


47 


107 


71 





1 











ill 


LD CB 


MOV 


C B 


48 


110 


72 





1 








1 


o e o 


LD CC 


MOV 


C C 


49 


111 


73 





1 








1 


o e l 


LD CD 


MOV 


CD 


4R 


112 


74 





1 








1 


e l e 


LD CE 


MOV 


CE 


4B 


113 


75 





1 








1 


11 


LD CH 


MOV 


CH 


4C 


114 


76 





1 








1 


10 


LD C L 


MOV 


CL 


4D 


115 


77 





1 








1 


i e i 


LD C <HL> 


MOV 


CM 


4E 


116 


78 





1 








1 


lie 


LD C A 


MOV 


C A 


4F 


117 


79 





1 








1 


ill 


LD D, B 


MOV 


D, 8 


50 


120 


80 





1 





1 





e e e 


LD D, C 


MOV 


D, C 


51 


121 


81 





1 





1 





e o i 


LD D, D 


MOV 


D, D 


52 


122 


82 





1 


O 


1 





e i e 


LD D, E 


MOV 


D, E 


53 


123 


83 





1 





1 





Oil 


LD D, H 


MOV 


D, H 


54 


124 


84 





1 





1 





10 


LD D, L 


MOV 


D, L 


55 


125 


85 





1 





1 





10 1 


LD D, <HL> 


MOV 


D, M 


56 


126 


86 





1 





1 





lie 


LD D, A 


MOV 


D, A 


57 


127 


87' 





1 





1 





ill 


LD E, B 


MOV 


E, 6 


58 


130 


88 





1 





1 


1 


e e e 


LD E, C 


MOV 


E, C 


59 


131 


89 





1 





1 


1 


e e i 


LD E, D 


MOV 


E, D 


5A 


132 


90 





1 





1 


1 


e l e 


LD E, E 


MOV 


E, E 


5B 


133 


91 





1 





1 


1 


e i i 


LD E, H 


MOV 


E, H 


5C 


134 


92 





1 





1 


1 


l e e 


LD E, L 


MOV 


E, L 


5D 


135 


93 





1 





1 


1 


10 1 


LD E, <HL> 


MOV 


E, M 


5E 


136 


94 





1 





1 


1 


lie 


LD E, A 


MOV 


E, A 


5F 


137 


95 





1 





1 


1 


ill 


LD H, B 


MOV 


H, B 


60 


140 


96 





1 


1 








e e e 


LD H, C 


MOV 


H, C 


61 


141 


97 





1 


1 








e e i 


LD H, D 


MOV 


H, D 


62 


142 


98 





1 


1 








e l e 


DD H, E 


MOV 


H, E 


63 


143 


99 





1 


1 








Oil 


LD H, H 


MOV 


H, H 


64 


144 


100 





1 


1 








l e e 


LD H, L 


MOV 


H, L 


65 


145 


101 





1 


1 








10 1 


LD H, <HL> 


MOV 


H, M 


66 


146 


102 





1 


1 








lie 


LD H, A 


MOV 


H, A 


67 


147 


103 





1 


1 








ill 


LD L, B 


MOV 


L, 8 


68 


150 


184 





1 


1 





1 


e e e 


LD L,C 


MOV 


L, C 


69 


151 


105 





1 


1 





1 


e o i 


LD L, D 


MOV 


L, D 


6A 


152 


106 





1 


1 





1 


e l e 


LD L, E 


MOV 


L, E 


6B 


153 


107 





1 


1 





1 


Oil 


LD L, H 


MOV 


L, H 


6C 


154 


108 





1 


1 





1 


l e e 


LD L, L 


MOV 


L, L 


6D 


155 


109 





1 


1 





1 


1 1 


LD L, <HL> 


MOV 


L, M 


6E 


156 


lie 





1 


1 





1 


lie 


LD L, A 


MOV 


L, A 


6F 


157 


111 





1 


1 





1 


ill 


LD <HL>, B 


MOV 


M, B 


70 


160 


112 





1 


1 


1 








LD <HL>,C 


MOV 


M, C 


71 


161 


113 





1 


1 


1 





e e i 


LD <HL>,D 


MOV 


M, D 


72 


162 


114 





1 


1 


1 





e l o 


LD <HL>, E 


MOV 


M, E 


73 


163 


115 





1 


1 


1 





e l l 


LD <HL>,H 


MOV 


M, H 


74 


164 


116 





1 


1 


1 





i e e 


LD <HL>,L 


MOV 


M, L 


75 


165 


117 





1 


1 


1 





1 1 


HALT 


HLT 




76 


166 


118 





1 


1 


1 





lie 


LD <HL>,A 


MOV 


M, A 


77 


167 


119 





1 


1 


1 





ill 


LD A, B 


MOV 


A, B 


78 


170 


126 





1 


1 


1 


1 


e e o 


LD A, C 


MOV 


A, C 


79 


171 


121 





1 


1 


1 


1 


e e i 


LD A, D 


MOV 


A, D 


7A 


172 


122 





1 


1 


1 


1 


e l e 


LD A, E 


MOV 


A, E 


7B 


173 


123 





1 


1 


1 


1 


e l l 


LD A, H 


MOV 


A, H 


7C 


174 


124 





1 


1 


1 


1 


i e e 


LD A, L 


MOV 


A, L 


7D 


175 


125 





1 


1 


1 


1 


10 1 


LD A, <HL> 


MOV 


A, M 


7E 


176 


126 





1 


1 


1 


1 


lie 


LD A, A 


MOV 


A, A 


7F 


177 


127 





1 


1 


1 


1 


ill 


ADD A, B 


ADD 


B 


80 


200 


128 


1 














e e o 
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ADD fl, C 


ADD C 


RDD fl, D 


ADD D 


ADD fl, E 


ADD E 


ADO fl, H 


ADD H 


RDD ft. L 


ADD L 


RDD fl, <HL> 


ADD M 


RDD fl, fl 


ADD A 


RDC fl, B 


ADC B 


RDC fl, C 


ADC C 


RDC A, D 


ADC D 


RDC A, E 


ADC E 


RDC fl, H 


ADC H 


RDC A, L 


ADC L 


RDC A, <HL> 


ADC M 


RDC A, A 


ADC A 


SUB B 


SUB B 


SUB C 


SUB C 


SUB D 


SUB D 


SUB E 


SUB E 


SUB H 


SUB H 


SUB L 


SUB L 


SUB <HL> 


SUB M 


SUB fl 


SUB A 


SBC A, B 


SBB B 


SBC A, C 


SBB C 


SBC R, D 


SBB D 


SBC R,E 


SBB E 


SBC fl, H 


SBB H 


SBC fl, L 


SBB L 


SBC fl, <HL> 


SBB M 


SBC fl, fl 


SBB A 


AND B 


ANA B 


AFD C 


ANA C 


AND D 


ANA D 


AND E 


ANA E 


AND H 


ANA H 


AND L 


ANA L 


AND <HL> 


ANA M 


AND A 


Mrwl H 


XOR B 


XRA B 


XOR C 


XRA C 


XOR D 


XRA D 


XOR E 


XRA E 


XOR H 


XRA H 


XOR L 


XRA L 


XOR <HL> 


XRA M 


XOR A 


XRA A 


OR B 


ORA B 


OR C 


ORA C 


OR D 


ORA D 


OR E 


ORA E 


OR H 


ORA H 


OR L 


ORA L 


OR <HL> 


ORA M 


OR A 


ORA A 


CP B 


CMP B 


CP C 


CMP C 


CP D 


CMP D 


CP E 


CMP E 


CP H 


CMP H 


CP L 


CMP L 


CP <HL> 


CMP M 



81 


201 


129 


1 














1 


82 


2B2 


130 


1 














10 


83 


203 


131 


1 














11 


84 


204 


132 


1 














10 


85 


205 


133 


1 














10 1 


86 


206 


134 


1 














110 


87 


207 


135 


1 














111 


88 


210 


136 


1 











1 





89 


211 


137 


1 











1 


1 


8R 


212 


138 


1 











1 


e i e 


8B 


213 


139 


1 











1 


11 


8C 


214 


140 


1 











1 


10 


8D 


215 


141 


1 











1 


10 1 


8E 


216 


142 


1 











1 


110 


8F 


217 


143 


1 











1 


111 


98 


220 


144 


1 








1 








91 


221 


145 


1 








1 





1 


92 


222 


146 


1 








1 





e i e 


93 


223 


147 


1 








1 





011 


94 


224 


148 


1 








1 





10 


95 


225 


149 


1 








1 





18 1 


96 


226 


150 


1 








1 





110 


97 


227 


151 


1 








1 





111 


98 


238 


152 


1 








1 


1 





99 


231 


153 


1 








1 


1 


1 


9fl 


232 


154 


1 








1 


1 


e i 


9B 


233 


155 


1 








1 


1 


e i i 


9C 


234 


156 


1 








1 


1 


10 


9D 


235 


157 


1 








1 


1 


10 1 


9E 


236 


158 


1 








1 


1 


110 


9F 


237 


159 


1 








1 


1 


111 


Re 


240 


160 


1 





1 











Rl 


241 


161 


1 





1 








1 


R2 


242 


162 


1 





1 








e i e 


R3 


243 


163 


1 





1 








11 


R4 


244 


164 


1 





1 








10 


R5 


245 


165 


1 





1 








10 1 


R6 


246 


166 


1 





1 








110 


A7 


247 


167 


1 





1 








111 


R8 


250 


168 


1 





1 





1 





R9 


251 


169 


1 





1 





1 


1 


Rfl 


252 


170 


1 





1 





1 


10 


RB 


253 


171 


1 





1 





1 


Oil 


AC 


254 


172 


1 





1 





1 


10 


RD 


255 


173 


1 





1 





1 


10 1 


AE 


256 


174 


1 





1 





1 


110 


RF 


257 


175 


1 





1 





1 


111 


B0 


260 


176 


1 





1 


1 








Bl 


261 


177 


1 





1 


1 





1 


B2 


262 


178 


1 





1 


1 





18 


B3 


263 


179 


1 





1 


1 





Oil 


B4 


264 


188 


1 





1 


1 





10 


B5 


265 


181 


1 





1 


1 





10 1 


B6 


266 


182 


1 





1 


1 





110 


B7 


267 


183 


1 





1 


1 





111 


B8 


270 


184 


1 





1 


1 


1 





B9 


271 


185 


1 





1 


1 


1 


1 


BR 


272 


186 


1 





1 


1 


1 


10 


BB 


273 


187 


1 





1 


1 


1 


Oil 


BC 


274 


188 


1 





1 


1 


1 


10 


BD 


275 


189 


1 





1 


1 


1 


10 1 


BE 


276 


190 


1 





1 


1 


1 


110 



CP R 


CMP R 


BF 


277 


191 


10111111 


RET NZ 


RNZ 


C0 


300 


192 


11000000 


POP BC 


POP B 


CI 


301 


193 


11000001 


JP NZ 


JNZ 


C2 


342 


194 


11000010 


JP NN 


JMP 


C3 


303 


195 


11000011 


CALL NZ, NN 


CNZ 


C4 


304 


196 


11000100 


PUSH BC 


PUSH B 


C5 


305 


197 


11000101 


ADD A, N 


RDI 


C6 


306 


198 


11000110 


RST 


RST 


C7 


307 


199 


11000111 


RET Z 


RZ 


C8 


318 


200 


11881888 


RET 


RET 


C9 


311 


201 


11881881 


JP Z, NN 


JZ 


CA 


312 


202 


11881818 


CALL Z, NN 


CZ 


CC 


314 


204 


11881188 


CALL NN 


CALL 


CD 


315 


205 


11881181 


ADC A, N 


AC I 


CE 


316 


206 


11881118 


RST 08H 


RST 1 


CF 


317 


287 


11881111 


RET NC 


RNC 


D0 


328 


288 


11818888 


POP DE 


POP D 


DI 


321 


289 


11818881 


JP NC, NN 


JNC 


D2 


322 


210 


11818818 


OUT <N>,A 


OUT 


D3 


323 


211 


11818811 


CALL NC, NN 


CNC 


D4 


324 


212 


11818188 


PUSH DE 


PUSH D 


D5 


325 


213 


11818181 


SUB N 


SUI 


D6 


326 


214 


11818118 


RST 10H 


RST 2 


D7 


327 


- 215 


11818111 


RET C 


RC 


D8 


338 


216 


11811888 


JP C, NN 


JC 


DA 


332 


218 


11811818 


IN A, <N> 


IN 


DB 


333 


219 


11811811 


CALL Z, NN 


CC 


DC 


334 


220 


11811188 


SBC A,N 


SBI 


DE 


336 


222 


11811118 


RST 18H 


RST 3 


DF 


337 


223 


11811111 


RST PO 


RPO 


E0 


348 


224 


11188888 


POP HL 


POP H 


El 


341 


225 


11188881 


JP PO, NN 


JPO 


E6 


342 


226 


11188818 


EX <SP>,HL 


XTHL 


E3 


343 


227 


11188811 


CALL PO, NN 


COP 


E4 


344 


228 


11188188 


PUSH HL 


PUSH H 


E5 


345 


229 


11188181 


AND N 


ANI 


E6 


346 


230 


11188118 


RST 20H 


RST 4 


E7 


347 


231 


11100111 


RET PE 


RPE 


E8 


358 


232 


11101000 


JP <HL> 


PCHL 


E9 


351 


233 


11101001 


JP PE, NN 


JPE 


Efl 


352 


234 


11101010 


EX DE, HL 


XCHG 


EB 


353 


235 


11101011 


CALL PE, NN 


CPE 


EC 


354 


236 


11101100 


XOR 


XRI 


EE 


356 


238 


11101110 


RST 28H 


RST 5 


EF 


357 


239 


11181111 


RET P 


RP 


F0 


368 


240 


11110000 


POP AF 


POP PSW 


Fl 


361 


241 


11110001 


JP P, NN 


JP 


F2 


362 


242 


11118818 


DI 


DI 


F3 


363 


243 


11118811 


CALL P, NN 


CP 


F4 


364 


244 


11118188 


PUSH AF 


PUSH PSW 


F5 


365 


245 


11110101 


OR N 


ORI 


F6 


366 


246 


11118118 


RST 30H 


RST 6 


F7 


367 


247 


11118111 


RET M 


RM 


F8 


378 


248 


11111888 


LD SP, HL 


SPHL 


F9 


371 


249 


11111881 


JP M, NN 


JM 


FA 


372 


250 


11111818 


EI 


EI 


FB 


373 


251 


11111811 


CALL M, NN 


CM 


FC 


374 


252 


11111188 


CP N 


CPI 


FE 


376 


254 


11111118 


RST 38H 


RST 7 


FF 


377 


255 


11111111 


LD <NN>,HL 


SHLD 


22 


042 


34 


00100010 


LD <NN),R 


STA 


32 


062 


50 


00118818 
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